home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexSmart.tcl < prev    next >
Encoding:
Text File  |  1997-11-26  |  4.9 KB  |  189 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexSmart.tcl (called from latex.tcl)
  5. #
  6. # Smart quotes, dots, subscripts, and superscripts
  7. #
  8. #############################################################################
  9. #
  10. # Original author unknown
  11. #
  12. # Maintainer:  Tom Scavo <trscavo@syr.edu>
  13. #
  14. #############################################################################
  15. #############################################################################
  16.  
  17. proc latexSmart.tcl {} {}
  18.  
  19. #--------------------------------------------------------------------------
  20. # Smart quotes:
  21. #--------------------------------------------------------------------------
  22.  
  23. proc smartDQuote {} {
  24.     global TeXmodeVars
  25.     if {[isSelection]} { deleteSelection }
  26.     if { !$TeXmodeVars(smartQuotes) || [literalChar] } { insertText {"}; return }
  27.     if {[leftQ]} {
  28.         insertText {``}
  29.     } else {
  30.         insertText {''}
  31.     }
  32. }
  33.  
  34. proc smartQuote {} {
  35.     global TeXmodeVars
  36.     if {[isSelection]} { deleteSelection }
  37.     if { !$TeXmodeVars(smartQuotes) || [literalChar]  } { insertText {'}; return }
  38.     if {[leftQ]} {
  39.         insertText {`}
  40.     } else {
  41.         insertText {'}
  42.     }
  43. }
  44.  
  45. proc leftQ {} {
  46.     if { [getPos] == 0 } { return 1 };
  47.     set q [lookAt [expr [getPos]-1]]
  48.     case $q in {
  49.         {\t}  {return 1}
  50.         {(}  {return 1}
  51.         {\{}  {return 1}
  52.         {[}  {return 1}
  53.         {<}  {return 1}
  54.         {\ } {return 1}
  55.         {\r} {return 1}
  56.     }
  57.     return 0
  58. }
  59.  
  60. #--------------------------------------------------------------------------
  61. # Smart dots:
  62. #--------------------------------------------------------------------------
  63.  
  64. # proc smartDots {} {
  65. #     global TeXmodeVars
  66. #     if {[isSelection]} { deleteSelection }
  67. #     if { !$TeXmodeVars(smartDots) || [literalChar] } { insertText {.}; return }
  68. #     # Labels contain literal dots:
  69. #     set pat {\\(label|(page|eq)?ref|bibitem|(no)?cite)(\[[^][]*\])?\{}
  70. #     if { [findPatJustBefore "$pat" "${pat}\[\]\[()`'.,:;?!a-zA-Z0-9/@*-\]*\$"] != "" } {
  71. #         insertText "."
  72. #         return
  73. #     }
  74. #     # Filenames contain literal dots:
  75. #     set pat {\\(usepackage|input|include(only)?|documentclass|bibliography(style)?|LoadClass|RequirePackage|begin\{filecontents\})(\[[^][]*\])?\{}
  76. #     if { [findPatJustBefore "$pat" "${pat}\[.:a-zA-Z_0-9/-\]*\$"] != "" } {
  77. #         insertText "."
  78. #         return
  79. #     }
  80. #     if {[lookAt [expr [set endPos [getPos]]-1]] == "."} {
  81. #         if {[lookAt [set begPos [expr $endPos-2]]] == "."} {
  82. #             replaceText $begPos $endPos "\\ldots"
  83. #         } else {
  84. #             insertText "."
  85. #         }
  86. #     } else {
  87. #         insertText "."
  88. #     }
  89. # }
  90. proc smartDots {} {
  91.     global TeXmodeVars
  92.     if {[isSelection]} { deleteSelection }
  93.     if { !$TeXmodeVars(smartDots) || [literalChar] } { insertText {.}; return }
  94.     if {[lookAt [expr [set endPos [getPos]]-1]] == "."} {
  95.         if {[lookAt [set begPos [expr $endPos-2]]] == "."} {
  96.             replaceText $begPos $endPos "\\ldots"
  97.         } else {
  98.             insertText "."
  99.         }
  100.     } else {
  101.         insertText "."
  102.     }
  103. }
  104.  
  105. #--------------------------------------------------------------------------
  106. # Smart subscripts and superscripts:
  107. #--------------------------------------------------------------------------
  108.  
  109. proc smartSubscripts {} {
  110.     smartScripts {_}
  111. }
  112.  
  113. proc smartSuperscripts {} {
  114.     smartScripts {^}
  115. }
  116.  
  117. proc smartScripts {char} {
  118.     if {[isSelection]} { deleteSelection }
  119.     if {[literalChar]} {
  120.         insertText $char
  121.         return
  122.     }
  123.     # Filenames contain literal underscores:
  124.     set pat {\\(usepackage|input|include(only)?|documentclass|bibliography(style)?|LoadClass|RequirePackage|begin\{filecontents\})(\[[^][]*\])?\{}
  125.     if { [findPatJustBefore "$pat" "${pat}\[.:a-zA-Z0-9/^_-\]*\$"] != "" } {
  126.         insertText $char
  127.         return
  128.     }
  129.     if { $char == {_} } { subscript } { superscript }
  130. }
  131.  
  132. #--------------------------------------------------------------------------
  133. # Escapes and exceptions:
  134. #--------------------------------------------------------------------------
  135.  
  136. proc escapeSmartStuff {} {
  137.     if {![isSelection]} {
  138.         set pos [getPos]
  139.         # Escape double quotes:
  140.         if { $pos > 1 } {
  141.             set pos2 [expr $pos - 2]
  142.             if { [getText $pos2 $pos] == "''" } {
  143.                 replaceText $pos2 $pos {"}
  144.                 return
  145.             } elseif { [getText $pos2 $pos] == "``" } {
  146.                 replaceText $pos2 $pos {"}
  147.                 return
  148.             }
  149.         }
  150.         # Escape single quote:
  151.         if { $pos > 0 } {
  152.             set pos1 [expr $pos - 1]
  153.             if { [lookAt $pos1] == "`" } {
  154.                 backSpace
  155.                 insertText {'}
  156.                 return
  157.             }
  158.         }
  159.         # Escape dots:
  160.         if { $pos > 5 } {
  161.             set pos6 [expr $pos - 6]
  162.             if { [getText $pos6 $pos] == "\\ldots" } {
  163.                 replaceText $pos6 $pos {...}
  164.                 return
  165.             }
  166.         }
  167.         # Escape underscore:
  168.         if { $pos > 1 && [maxPos] > [expr $pos + 1] } {
  169.             set begPos [expr $pos - 2]
  170.             set endPos [expr $pos + 2]
  171.             if { [getText $begPos $endPos] == "_\{\}•" } {
  172.                 replaceText $begPos $endPos {_}
  173.                 return
  174.             }
  175.         }
  176.         # Escape caret:
  177.         if { $pos > 1 && [maxPos] > [expr $pos + 1] } {
  178.             set begPos [expr $pos - 2]
  179.             set endPos [expr $pos + 2]
  180.             if { [getText $begPos $endPos] == "^\{\}•" } {
  181.                 replaceText $begPos $endPos {^}
  182.                 return
  183.             }
  184.         }
  185.     }
  186.     backSpace
  187. }
  188.  
  189.